home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_joyports.lha / JoyPorts / ReadJoyPad.s < prev    next >
Encoding:
Text File  |  1995-07-30  |  955 b   |  53 lines
  1. CD_PLAY    EQU 1
  2. CD_RWD    EQU 2
  3. CD_FFW    EQU 3
  4. CD_G    EQU 4
  5. CD_Y    EQU 5
  6. CD_R    EQU 6
  7. CD_B    EQU 7
  8.  
  9.  
  10. ;***********************************************************************
  11. ;Reads CD 32 Controller
  12. ;You must read joystick positions or button in normal way
  13. ;BEFORE you call this.
  14. ;One VBL MUST have elapsed before repeating this!
  15.  
  16. ReadCD32:
  17.         movem.l    d0-d2/a0,-(sp)
  18.         bset    #7,$bfe201
  19.         bclr    #7,$bfe001
  20.         move.w    #$6f00,$dff034
  21.         moveq.l    #0,d0
  22.         moveq.l    #7,d1
  23.         bra.b    .gamecont4        
  24. .gamecont3:
  25.         tst.b    $bfe001
  26.         tst.b    $bfe001
  27.         tst.b    $bfe001
  28. .gamecont4:
  29.         tst.b    $bfe001
  30.         tst.b    $bfe001
  31.         tst.b    $bfe001
  32.         tst.b    $bfe001
  33.         tst.b    $bfe001
  34.         move.w    $dff016,d2
  35.         bset    #7,$bfe001
  36.         bclr    #7,$bfe001
  37.         btst    #14,d2
  38.         bne.b    .gamecont5
  39.         bset    d1,d0
  40. .gamecont5:
  41.         dbf    d1,.gamecont3
  42.         
  43.         bclr    #7,$bfe201
  44.         move.w    #$ffff,$dff034
  45.         lea    cd32,a0
  46.         move.b    d0,(a0)
  47.         movem.l    (sp)+,d0-d2/a0
  48.         rts
  49. cd32:        dc.b    0
  50.         CNOP 0,2
  51.  
  52. ;***********************************************************************
  53.